Dim a,b(99),c As Integer
Private Sub Command1_Click(Index As Integer)
a=Index
c=0
End Sub
Private Sub display(no)
For i=0 To 7
If no Mod 2=1 And a=1 Then G(i).FillColor=RGB(0,255,0) Else G(i).FillColor=RGB(0,128,0)
If no Mod 2=1 And a=2 Then R(i).FillColor=RGB(255,0,0) Else R(i).FillColor=RGB(128,0,0)
no=no\2
Next i
End Sub
Private Sub Timer1_Timer()
b(0)= &H18
b(1)= &H24
b(2)= &H42
b(3)= &H81
Text1.Text="Current  Time:"  & Time$
For  i=0 To 7
G(i).FillColor=vbWhite
R(i).FillColor=vbWhite
Next  i
If OpenUsbDevice(VendorID,ProductID)  Then
For i=0 To 7
G(i).FillColor=RGB(0,128,0)
R(i).FillColor=RGB(128,0,0)
Next i
OutDataCtrl 0,0
OutDataCtrl 0,16
If a=1 Then OutDataCtrl  b(c),0:display(b(c))
If a=2  And  c<=7  Then
OutDataCtrl 2^c,32
OutDataCtrl 2^c,48
display(2^c)
End If
End If
If a=3 Then CloseUsbDevice:End
If c>15 Then c=15 Else c=c+1
End Sub